home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 4 / The Arsenal Files 4 (Arsenal Computer).ISO / tbbs / inetname.prg < prev    next >
Text File  |  1995-03-11  |  624b  |  12 lines
  1. * Example of utility to show user's Internet email address
  2.  
  3. domain = "@esoft.com"                   && edit this with your domain name
  4. name = LOWER(TRIM(UNAME()))             && get user's name from TBBS
  5. DO WHILE " " $ name                     && loop until no more spaces in name
  6.  s = AT(" ", name)                      && where is the first space?
  7.  name = LEFT(name, s - 1) + "." + SUBSTR(name, s + 1) && replace with period
  8. ENDDO
  9. ? "Your internet mailing address is: "
  10. ?? CHR(34) + name + domain + CHR(34)    && show user's email address
  11. WAIT                                    && wait for user to press a key
  12.